home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / jodan / jodan.bas next >
BASIC Source File  |  1993-11-30  |  652b  |  32 lines

  1. 10 DIM WA%(10016)
  2. 20 LOAD@ "WA.SND",WA%
  3. 30 SCREEN@0:CLS
  4. 40 CLS 1
  5. 50 READ A$
  6. 60 IF A$="*" THEN *WA
  7. 70 L=KLEN(A$)
  8. 80 FOR I=0 TO L-1 
  9. 90  LOCATE 39+(I-INT(L/2))*2,12
  10. 100  PRINT KMID$(A$,I+1,1)
  11. 110  WAIT 10
  12. 120 NEXT
  13. 130 WAIT 200
  14. 140 GOTO 40
  15. 150 *WA
  16. 160 PCMPLAY WA%,127
  17. 170 SYMBOL(0,0),"わ",3,2,6
  18. 180 FOR I=-15 TO 15
  19. 190  A=16-ABS(I)
  20. 200  OUT &H440,27,2:OUT &H442,(A-1)*16+(A-1),2
  21. 210  WAIT 1
  22. 220 NEXT
  23. 230 WAIT 200
  24. 240 END
  25. 250 *DATA
  26. 260 DATA "何か、聞こえませんか?"
  27. 270 DATA "え、聞こえない?"
  28. 280 DATA "TOWNSから、何か聞こえませんか?"
  29. 290 DATA "音量を上げて、耳を澄ましてみてください・・・・"
  30. 300 DATA ""
  31. 310 DATA "*"
  32.